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Using a Personal Computer to 
Program the AT89C51 



Introduction 

This note describes a personal computer- 
based programmer for the AT89C51 Flash- 
based Microcontroller. The techniques 
illustrated here can also be used to imple- 
ment in-system programming in a user's ap- 
plication environment. All AT89C51 func- 
tions are supported, including code read, 
code write, chip erase, signature read, lock 
bit write, and Vpp select. Code write, chip 
erase and lock bit write may be performed at 
either five or twelve volts, as set by the Vpp 
select function. 

The programmer consists of a hardware unit 
and its control program. The hardware unit 
is connected to an IBM PC-compatible host 
computer through one of the host's parallel 
ports. Power to the unit is provided by an ex- 
ternal power supply. The control program, 
which was written in Microsoft 'C (version 
5.10), runs on the host. 

The emphasis in this design is on ease of im- 
plementation. Use of the parallel interface 
allows a minimum component count. Re- 
quired delays are enforced by the control 
program, utilizing software loops. This 
means that the accuracy of delay intervals 
will vary between host systems running at 
different speeds. The code presented here 
was tested on an 80386-based system run- 
ning at 33 MHz, and may require modifica- 
tion for use on other systems. 

Programming the Flash 

The AT89C51 is shipped with the on-chip 
Flash memory array in the erased state (i.e., 
contents=FFH) and ready to be pro- 
grammed. The programming interface ac- 
cepts either a High Vpp (12V) or a Low Vpp 
(5V) program enable signal. The Low Vpp 
programming mode provides a convenient 
way to program the AT89C51 inside the 
user's system. 

The AT89C51 code memory array is pro- 
grammed byte-by-byte in either program- 



ming mode. To program any non-blank byte 
in the on-chip Flash Code Memory, the en- 
tire memory needs to be erased using the 
Chip Erase mode. 

Hardware Configuration 

The hardware unit contains the host inter- 
face and circuitry to generate the signals re- 
quired to control the AT89C51 (see Figure 
1). Power for the internal circuitry and the 
voltages required by the AT89C5 1 are pro- 
vided by two external power supplies. One 
supply is fixed at five volts. A second sup- 
ply provides either five or twelve volts, 
selectable by the control program (signal 
12VEN*). When power is first applied, all 
data and control signals are three-stated 
with Select Vpp set to 5V. 

The hardware unit is connected to the host 
with a 25-conductor cable. The length of the 
cable should be as short as possible, prefer- 
ably not exceeding three feet. 

Software Control Program 

The programmer control program (available 
on disk from your local Atmel office) is in- 
voked from the DOS command line by en- 
tering the program name followed by 
'LPT1 ' or 'LPT2' to select parallel port one 
or two, respectively. If the parallel port is 
not specified, the program will prompt for 
the port. The control program is menu- 
driven, and provides the following 
functions: 

Select Vpp 

Vpp may be set to either five or twelve volts. 
This function should be selected prior to the 
code write, chip erase or lock bit write 
functions. 

Chip Erase 

Clear code memory to all ones. A blank 
check should be performed after chip erase 
to verify the successful completion of this 
function. 
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Program from File 

Write the contents of the specified file into code memory. The 
user is prompted for the file name, which may require path and 
extension. The file size must be 4096 bytes or greater, or an 
error will occur. 

Programming occurs regardless of the existing contents of code 
memory. After programming, the contents of code memory is 
not automatically verified against the file data. 

The Ready/Busy# signal (at port pin P3.4 of the AT89C51) is 
available at the Busy terminal of the host's parallel port (pin 1 1 
of the DB25 connector), and can be used to monitor the prog- 
ress of the self-timed byte write cycle. The program presented 
here uses a fixed time delay to determine the end of a byte write 
cycle. 

Verify against File 

Compare the contents of code memory against the contents of 
the specified file. The user is prompted for the file name, which 
may require path and extension. The file size must be 4096 
bytes or greater, or an error will occur. 



Locations which fail to compare are displayed by address, with 
the expected and actual byte contents. 

Save to File 

Copy the contents of code memory to the specified file. The 
user is prompted for the file name, which may require path and 
extension. The size of the resulting file is always 4096 bytes. 

Blank Check 

Verify that the contents of code memory are all ones. Only pass 
or fail is reported; the addresses of failing locations are not dis- 
played. 

Read Signature 

Read and display the contents of the two signature bytes, which 
should be 1EH (ATMEL) and 51H (89C51). 

Write Lock Bit 1, Bit 2, Bit 3 

Set the indicated lock bit. The state of the lock bits cannot be 
verified directly. Verification of the lock bits is achieved by ob- 
serving that the respective protection modes are enabled. 

Exit 

Quit the programmer control program. 
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Figure 1. AT89C5 1 Programmer 
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AT89C51 Programmer Control Program 



♦include <stdio,h> 

#include <string.h> 

#include <graph.h> 

#include <dos.h> 

♦define FALSE 
♦define TRUE -1 



//♦define PBASE 0x378 

//♦define PBASE 0x278 

//♦define PDATA (PBASE+0) 

//♦define PSTAT (PBASE+1) 

//♦define PCTRL (PBASE+2) 



/* LPT1 I/O addresses */ 
/* LPT2 I/O addresses */ 



♦define 


DSIZE 4096 




/* Four- 


-bit function 


codes 


♦define 


WRITE_DATA 


Oxe 


♦define 


READ_DATA 


Oxc 


♦define 


SELECT_VPP 


Oxa 


♦define 


WRITE LOCK 1 


Oxf 


♦define 


WRITE_LOCK_2 


0x3 


♦define 


WRITE_LOCKJ3 


0x5 


♦define 


CHIP ERASE 


0x1 


♦define 


READ SIGNATURE 0x0 



/* AT89C51 FLASH size */ 



typedef unsigned char BYTE; 
typedef unsigned int WORD; 
typedef unsigned int BOOLEAN; 



BOOLEAN load_data( char *, BYTE *, int ); 

BOOLEAN save_data( char *, BYTE *, int ), 

void erase! BYTE *, int ); 

void program! BYTE *, BYTE *, int, int ), 

void xread( BYTE *, BYTE *, int ) ; 

BOOLEAN verify! BYTE *, BYTE *, int ); 

BOOLEAN blank ( BYTE * ) ; 

void select_Vpp( BYTE *, int ); 

void signature! BYTE » ); 

void lock( BYTE *, int, int ) ; 

void reset ( BYTE * ) ; 

void set_address ( BYTE, WORD ) ; 

void set_data ( BYTE ) ; 

BYTE get_data ( void ) ; 

void enable_address ( BYTE * ) ; 

void disable_address ( BYTE * ); 

void enable_data ( BYTE * ) ; 

void disable_data ( BYTE * ) ; 

void enable_Vpp ( BYTE * ) ; 

void disable_Vpp( BYTE * ) ; 

void slow_pulse( BYTE * ); 

void f ast_pulse ( BYTE * ) ; 

int pctrl, pdata; 



/* LPTx control and data port addresses 



main(argc, argv) 
int argc; 
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char *argv [ ] ; 
1 

FILE *fptr; 

BYTE pgmdata [DSIZE] , control = 0; 
char *pch, f name [ 20 ] ; 

WORD far *p_lptl = (WORD far *) 0x00400008 ; 
WORD far *p_lpt2 = (WORD far * ) 0x0040000a; 

if ( (argc > 1) ss ( (pch « strpbrk ( argv[l], "12" )) != NULL) ) { 
switch (*pch) ( 

case ' 1' : /* LPT1 V 

pdata = *p _lptl; 
pctrl = *p_lptl + 2; 
break; 

case '2' : /* LPT2 */ 

pdata = *p_lpt2; 
pctrl = *p_lpt2 + 2; 

) 

if (pdata " 0) { /* port undefined */ 

puts ( "Specified Parallel Port is not implemented." ); 
exit ( 255 ) ; 

) 

} else { 

puts ( "Parallel Port 1 or 2 must be specified on command line." ); 
puts( "Usage: <fname> <LPT1 I LPT2>" > ; 
exit ( 255 ) ; 

) 

while ( TRUE ) { 

clearscreen ( _GCLEARSCREEN ); 

/* 

* Menus . 

* Anything typed on the command line following the port 

* will invoke the long form menu. All commands are available 

* with either menu, but only a subset are displayed in the 

* short form menu . 
*/ 

if (argc > 2) ( f* long form */ 

puts! "\t\t 5 Volts\t 12 Volts\n" ); 

puts ( "Select Vpp\t\tA\t\tB\n" ) ; 

puts ( "Chip Erase\t\tC\t\tD\n" ) ; 

puts ( "Program from File\tE\t\tF" ); 

puts ( "Verify against File\tG\t\tG" ) ; 

puts( "Save to File\t\tH\t\tH\n" ) ; 

puts( "Blank Check\t\tl\t\tl\n" ) ; 

puts( "Read Signature\t\t J\t\t J\n" ) ; 

puts( "Write Lock Bit l\tK\t\tL" ); 

puts! "Write Lock Bit 2\tM\t\tN" ); 

puts! "Write Lock Bit 3\tP\t\tQ\n" ) ; 

puts ( "Exit\t\t\t\tX\n\n" ) ; 
) else ( /* short form V 

puts ( "Select Vpp = 5 volts\tA" ) ; 

puts( "Select Vpp - 12 volts\tB\n" ); 

puts! "Chip Erase\t\tD\n" ) ; 

puts! "Program from File\tF" ); 

puts! "Verify against FlleNtG" ) ; 

puts( "Save to File\t\tH\n" ) ; 

puts! "Blank Check\t\tl\n" ) ; 

puts! "Read Signature\t\t J\n" ) ; 

puts( "Write Lock Bit l\tL" ); 

puts ( "Write Lock Bit 2\tN" ) ; 



puts( "Write Lock Bit 3\tQ\n" ); 
puts( "Exit\t\t\tX\n\n" ); 



) 



printf< "Enter selection: 
gets ( pen ) ; 
*pch |= 0x20; 



) ; 



/* convert first char to lower case */ 



switch (*pch) { 
case ' a ' : 

select_Vpp{ Scontrol, ); 

break; 
case ' b' : 

select_Vpp{ scontrol, 1 ); 

break; 
case ' c' : 

erase ( scontrol, ); 

break ; 
case ' d' : 

erase ( scontrol , 1 ) ; 

break; 
case ' e' : 

printf( "Enter file name: * ); 

gets ( fname ) ; 

if (load_data ( fname, pgmdata, DSIZE ) ) 

program( Scontrol, pgmdata, DSIZE, ); 
else { 

_clearscreen ( _G CLEARS CRE EN ) ; 

puts( "Error opening or reading input data file 
puts { "\nPress Enter to continue ..." ) ; 
gets { pch ) ; 



/* select Vpp=5v */ 

/* select Vpp=12v */ 

/* chip erase @5v */ 

/* chip erase @12v */ 

/ * write chip from file @5v */ 



/* write chip from file @12v */ 



/* compare chip contents to file */ 



} 

break; 
case ' f ' : 

pr intf { "Enter file name : " ) ; 
gets ( fname ) ; 

if (load_data( fname, pgmdata, DSIZE )) 

program( scontrol, pgmdata, DSIZE, 1 ); 
else f 

_clearscreen ( GCLEARSCREEN ) ; 

puts ( "Error opening or reading input data file." ); 
puts ( "\nPress Enter to continue..." ); 
gets ( pch ) ; 

} 

break; 
case ' g' : 

printf( "Enter file name: " ); 
gets { fname ) ; 

if (load_data ( fname, pgmdata, DSIZE ) } { 

if (!verify{ Scontrol, pgmdata, DSIZE )) { 
puts( "\nPress Enter to continue..." ); 
gets { pch ) ; 

} 

} else { 

_clearscreen ( _GCLEARSCREEN ); 

puts{ "Error opening or reading input data file." ); 
puts ( "\nPress Enter to continue..." ); 
gets { pch ) ; 

1 

break; 

case ' h' : /* save chip contents to file */ 

printf{ "Enter file name: " ); 
gets ( fname ) ; 
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xread ( Scontrol, pgmdata, DSIZE ); 
if (!save_data( fname, pgmdata, DSIZE )) { 
_clearscreen ( _GCLEARSCREEN ) ; 

puts ( "Error opening or reading output data file." ); 
puts { "\nPress Enter to continue..." ); 
gets ( pch ) ; 



} 

break ; 
case ' i' : 

_clearscreen ( _GCLEARSCREEN ); 
if {blank ( scontrol )) 

puts ( "Device is blank" ); 
else 

puts( "Device is not blank" ); 

puts ( "\nPress Enter to continue. 

gets { pch ) ; 

break; 
case ' j' : 

_clearscreen { JSCLEARSCREEN ); 

signature ( scontrol ); 

puts ( "\nPress Enter to continue. 

gets ( pch ) ; 

break; 
case ' k ' : 

lock ( scontrol, 1, in- 
break; 
case ' 1' : 

lock ( scontrol, 1, 1 ); 

break; 
case ' m' : 

lock ( scontrol, 2, ) ; 

break; 
case ' n' : 

lock ( scontrol, 2, 1 ) ; 

break; 
case * p' : 

lock ( Scontrol, 3, ) ; 

break; 
case ' q' : 

lock ( Scontrol, 3, 1 ); 

break; 
case ' x' : 
default : 

_clearscreen{ _GCLEARSCREEN ); 

exit ( ) ; 



/* verify blank chip */ 



/* read signature bytes */ 



) ; 



/* write lock bit 1 @5v */ 



/* write lock bit 1 @12 v. */ 



/* write lock bit 2 @5v */ 



write lock bit 2 812 v */ 



/* write lock bit 3 @5v */ 



/* write lock bit 3 612 v */ 



/* exit program */ 



/* 

* Read data from indicated file into specified array. 

* Returns a boolean value indicating success or failure. 
*/ 

BOOLEAN load_data { fname, store, bcount ) 

char fname [ ] ; 

BYTE store [ ] ; 

int bcount; 

{ 

FILE *fptr; 

if {(fptr = fopen( fname, "rb" }) == NULL) 

return ( FALSE ); /* file open failed */ 
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if (fread( store, bcount, 1, fptr ) != 1) 

return! FALSE ); /* file read failed */ 

f close ( fptr ) ; 
return ( TRUE ) ; 



/* 

* Write data from specified array into indicated file. 

* Returns a boolean value indicating success or failure. 
*/ 

BOOLEAN save_data ( fname, store, bcount ) 
char fname [ ] ; 
BYTE store [ ] ; 
int bcount; 
< 

FILE *fptr; 

if ((fptr = fopen( fname, "wb" )) == NULL) 

return ( FALSE ) ; 
if (fwrite( store, bcount, 1, fptr ) 1) 

return ( FALSE ) ; 
fclose ( fptr ) ; 
return ( TRUE ) ; 



/* file open failed */ 
/* file write failed */ 



/* 

* Clear the chip memory to all ones. Suggested before programming. 

* The erase voltage parameter corresponds to 12 volts if one, 

* five volts if zero. 
*/ 

void erase { cptr, vsel } 
BYTE *cptr; 
int vsel; 
{ 

int i ; 



reset ( cptr } ; 

set_address( CHIP_ERASE, Oxfff ) ; 
enable_address ( cptr ); 
for (i=0; i<10; i++) 



/* float signals, Vpp=5v */ 

/* select function */ 

/* enable func, PSEN*, PROG* */ 

/* delay */ 



if (vsel) { 

enable Vpp( cptr ); /* Vpp=12v */ 

for (i=0; K25000; i + + ) /* delay 15 mS Vpp rise->PROG* */ 



slow_pulse( cptr ); 
for (i=0; i<10; i++) 

reset ( cptr ) ; 

if (vsel) 

for (i=0; i<25000; i++) 



/* apply PROG* pulse */ 

/* delay PROG*->addr/data */ 

/* float signals, Vpp=5v */ 

/* delay 15 mS for Vpp fall */ 



/* 

* Program the chip with the contents of the specified data array. 
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* The programming voltage parameter corresponds to 12 volts if one, 

* five volts if zero. 

* The maximum programming time is allotted to each byte write. 

* No attempt is made to determine if a byte programs correctly or 

* if it is already programmed with the desired value. 

* / 

void program( cptr, data, count, vsel ) 
BYTE "cptr, data!]; 
int count, vsel; 
( 

WORD addr; 
int i; 



reset ( cptr ) ; 

set_address( WRITE_DATA, Oxfff ) ; 
enable_address ( cptr ) ; 
set_data ( Oxf f ) ; 
enable_data ( cptr ) ; 

if (vsel) ( 

for (i=0; i<10; i++) 

enable_Vpp ( cptr ) ; /* Vpp=12v */ 
for (i=0; K25000; i++) 

) 

for (addr=0; addr<count; addr++) { 

set_address ( WRITE^DATA, addr ) ; 
set_data { data [addr] ); 
for (i=0; i<10; i++) 

fast_pulse ( cptr ) ; 
for (i=0; i<10; i++) 

} 



/* float signals, Vpp=5v */ 

I* select function */ 

/* enable func, PSEN*, PROG* */ 

/* enable bus before write */ 



/* delay f unction->Vpp */ 



/* delay 15 mS Vpp rise->PROG* */ 



/* apply address */ 

/* apply data */ 

/* delay addr/data->PROG* */ 

/* apply PROG* pulse */ 

/* delay PROG*->addr/data */ 



reset( cptr ); /* float signals, Vpp=5v */ 

if (vsel) 

for (i=0; K25000; i++) /* delay 15 mS for Vpp fall */ 



/* 

* Read the contents of the chip into the specified data array. 
*/ 

void xreadf cptr, data, count ) 
BYTE *cptr, data [ ] ; 
int count; 

{ 

BYTE tmp; 

BOOLEAN flag = TRUE; 
WORD addr; 
int i; 



reset ( cptr ) ; 

set_address ( READ_DATA, Oxfff ) ; 
enable_address { cptr ); 

for (addr=0; addr<count; addr++) { 
set_address( READ_DATA, addr ); 



/* float signals, Vpp=5v */ 

/* select function */ 

/* enable func, PSEN* , PROG* */ 



/* apply address */ 



for (i=0; i<10; i++) /* delay address->data */ 
dataladdr] = get_data ( ) ; 

) 

reset! cptr ); /* float signals, Vpp=5v «/ 



/* 

* Compare the contents of the chip to the specified data array. 

* Failures are displayed by address, with actual contents and expected 

* contents. A boolean value is returned indicating verify pass/fail. 
*/ 

BOOLEAN verify) cptr, data, count ) 
BYTE *cptr, dataU; 
int count; 
( 

BYTE tmp; 

BOOLEAN flag = TRUE; 
WORD addr; 
int i; 



reset ( cptr ) ; 

set_address( READ_DATA, Oxfff > ; 
enable_address { cptr ) ; 



/* float signals, Vpp=5v */ 

/* select function */ 

/* enable func, PSEN*, PROG* */ 



for (addr=0; addr<count; addr++) { 

set_address( READ_DATA, addr ) ; /* apply address */ 

for (i=0; i<10; i++) /* delay address->data */ 

if ((tmp = get_data()) != dataladdr]) { 

if (flag) ( /* first time only */ 

clearscreen ( _GCLEARSCREEN ) ; 

) 

printf( "verify fail at %.4X is % . 2X sb %.2X\n", addr, tmp, dataladdr] ) ; 
flag = FALSE; 

) 

) 



reset ( cptr ); /* float signals, Vpp=5v */ 

return ( flag ) ; 

) 



/« 

* Determine if the chip is erased. Locations of failures are not 

* determined. A boolean value is returned indicating blank/not blank. 
*/ 

BOOLEAN blank ( cptr ) 

BYTE *cptr; 

{ 

BYTE tmp; 

BOOLEAN flag = TRUE; /* default is blank */ 

WORD addr; 
int i ; 



reset ( cptr ) ; 

set_address( READ DATA, Oxfff ) ; 
enable_address ( cptr ) ; 

for (addr=0; addr<DSIZE; addr++) { 

set_address( READ_DATA, addr ) ; 



/* float signals, Vpp=5v */ 

/* select function */ 

/* enable func, PSEN* , PROG* */ 



/* apply address */ 
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for (i=0; i<10; i++) 

if (get_data() != Oxff) 
flag = FALSE; 

} 

reset ( cptr ) ; 
return ( flag ) ; 



/* delay address->data */ 

/* compare to erased value */ 
/* not blank */ 

/* float signals, Vpp=5v */ 



/* 

* Specify Vpp equal to five volts or 12 volts. 

* The voltage parameter corresponds to 12 volts if one, 

* five volts if zero. 
*/ 

void select_Vpp( cptr, vsel ) 
BYTE *cptr; 
int vsel; 

I 

int i; 



reset ( cptr ) ; 



/* float signals, Vpp=5v */ 



if (vsel) { 

setaddress 1 SELECT_VPP, OxOaa ); 

enable_address ( cptr ) ; 

set_data ( 0x55 ); 
} else { 

set_address( SELECT_VPP, 0x055 ); 
enable_address ( cptr ); 
set_data ( Oxaa ) ; 

) 



/* select function */ 

/* enable func, PSEN*, PROG* */ 



/* select function */ 

/* enable func, PSEN*, PROG* */ 



enable_data{ cptr }; 
for (i=0; i<10; i++) 



/* enable bus before write */ 
/* delay function->Vpp */ 



enable_Vpp ( cptr ); 
for (i=0; i<25000; i++) 



/* Vpp=12v */ 

/* delay 15 mS Vpp rise->PR0G* */ 



slow_pulse ( cptr ); 
for (i=0; i<10; i++) 



/* apply PROG* pulse */ 

/* delay PROG*->addr/data */ 



reset { cptr ) ; 
for (1=0; K25000; 



/* float signals, Vpp=5v */ 
/* delay 15 mS for Vpp fall */ 



/* 

* Read signature bytes. 

* The first byte is at address 30h, the second at 31h. When set to 

* lEh and 51h, respectively, they identify an AT89C51. 
*/ 

void signature ( cptr ) 

BYTE *cptr; 

( 

BYTE tmpl, tmp2; 
int i; 



reset ( cptr ) ; 

set_address( READ_SIGNATURE, 0x030 ); 
enable_address ( cptr ) ; 



/* float signals, Vpp=5v */ 
/* select function, address */ 
/* enable func, PSEN* , PROG* */ 



iflmET 



for (i=0; i<10; i++) /* delay address->data */ 

tmpl = get_data(); /* read first byte */ 

set_address( RE AD_S I GN ATURE , 0x031 ) ; /* select function */ 

for (i=0; i<10; i++) /* delay address->data */ 
; 

tmp2 = get_data(); /* read second byte */ 

printf( "signature byte 1: % . 2X\nsignature byte 2: %.2X\n", tmpl, tmp2 ); 

reset( cptr ) ; /* float signals, Vpp=5v */ 



/* 

* Write specified lock bit. 

* The voltage parameter corresponds to 12 volts if one, 

* five volts if zero. 
*/ 

void lock { cptr, lbit, vsel ) 
BYTE *cptr; 
int lbit, vsel; 
< 

int i; 

reset! cptr ) ; /* float signals, Vpp=5v */ 

switch (lbit) ( /* select function */. 

case 1: 

set_address( WRITE_LOCK_l , Oxfff ); 
break; 
case 2: 

set_address( WRITE_LOCK_2 , Oxfff ) ; 
break; 
case 3 : 

set_address( WRITE_LOCK_3, Oxfff ); 
break; 

) 

enable_address { cptr ) ; 
for (i=0; i<10; i++) 



if (vsel) ( 

enable_Vpp( cptr ) ; /* Vpp=12v */ 

for (i=0; K25000; 1++) /* delay 15 mS Vpp rise->PROG* */ 



/* enable func, PSEN*, PROG * */ 
/* delay */ 



fast_pulse( cptr ); 
for (i=0; i<10; i++) 

reset ( cptr ) ; 

if (vsel) 

for (1=0; i<25000; i++) 



/* apply PROG* pulse */ 

/* delay PROG*->addr/data */ 

/* float signals, Vpp=5v */ 

/* delay 15 mS for Vpp fall */ 



/* 

* Return programmer hardware to the passive state. 

* Writes zeros into the programmer control latch, which floats the 
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* address and data busses and puts 5 volts on Vpp . The programmer 

* address latches are loaded with zeros, the data latch with ones. 

* NOTE : The programmer will not power up correctly with ones left 

* on the LPTx data bus. Also, latches must be addressed before 

* the strobe is generated to avoid glitches. 
*/ 

void reset ( cptr ) 



BYTE *cptr; 

; 










i 

outp ( 


pdata, 


) ; 




/* 


set up data * / 


outp ( 


pctrl. 


0x08 


) ; 


/* 


select control latch * / 


outp ( 


pctrl. 


0x09 


) ; 


/* 


latch data */ 


outp ( 


pctrl , 


0x08 


) ; 






outp { 


pctrl, 


0x0c 


) ; 


/* 


select low address latch */ 


outp ( 


pctrl , 


OxOd 


) ; 


/* 


latch data */ 


outp ( 


pctrl. 


0x0c 


); 






outp ( 


pctrl. 


0x00 


) ; 


/* 


select high address latch */ 


outp ( 


pctrl, 


0x01 


) ; 


/* 


latch data V 


outp ( 


pctrl, 


0x00 


) ; 






outp ( 


pdata, 


Oxf f 


> ; 


/* 


set up data */ 


outp ( 


pctrl. 


0x04 


) ; 


/* 


select data latch */ 


outp { 


pctrl , 


0x05 


) i 


/* 


latch data */ 


outp ( 


pctrl. 


0x04 


) ; 






outp ( 


pdata. 


); 




/* 


data inactive */ 


outp ( 


pctrl. 


0x08 


) ; 


/* 


control signals inactive */ 


*cptr 


= 0; 






/* 


save control latch value */ 



/* 

* Write specified values into the programmer address and function 

* code latches. Both address and function must be specified. 
V 

void set address ( func, addr ) 
BYTE func; 
WORD addr; 
{ 



outp ( 


pdata, 


addr ) ; 






/* 


set up low byte of address */ 


outp ( 
outp ( 
outp ( 


pctrl , 
pctrl, 
pctrl, 


0x0c ) ,- 
OxOd ) ; 
0x0c ) ; 






/* 
/* 


select low address latch */ 
latch data */ 


outp ( 


pdata, 


(func « 4) 


(addr » 8 


) ); 


/« 


set up high byte of address */ 


outp ( 
outp ( 
outp ( 


pctrl, 
pctrl, 
pctrl, 


0x00 ) J 
0x01 ),- 
0x00 ); 






1* 
1* 


select high address latch */ 
latch data */ 


outp { 
outp ( 


pdata, 
pctrl. 


); 
0x08 ) ; 






1* 
/* 


clear data */ 

control signals inactive */ 



} 



/* 

* Write specified value into the programmer data latch. 
*/ 

void setdata ( outdata ) 
BYTE outdata; 



outp( pdata, outdata ) ; 



/* set up output data */ 



outp ( pctrl, 0x04 ) 
outp ( pctrl, 0x05 ) 
outp( pctrl, 0x04 ) 



/* select data latch */ 
/* latch data */ 



outp ( pdata, ) ; 
outp( pctrl, 0x08 ) ; 



/* clear data */ 

/* control signals inactive */ 



* Return data present on programmer data lines. 

* Does not first disable programmer output data latch. 
*/ 

BYTE get_data ( void ) 
t 

BYTE tmp; 
int i; 



outp ( pdata, Oxff ); 



/* set LPTx port data high */ 



outp ( pctrl, 0x02 ) ; 
for (i=0; i<10; i++) 



/* enable read data buffer */ 
/* delay V 



tmp = inp( pdata ); 



/* get data */ 



outp ( pdata, ) ; 
outp ( pctrl, 0x08 ) i 



/* clear data */ 

/* control signals inactive */ 



return ( tmp ) ; 



f* 

* Enable outputs of programmer address latches. 

* Note that PSEN* and PROG* are also enabled. 
*/ 

void enable_address ( cptr ) 

BYTE *cptr; 

( 

outpl pdata, (*cptr 1= 0x10) ) ; 



/* set up data */ 



outp ( pctrl, 0x08 ) 
outp ( pctrl, 0x09 ) 
outp ( pctrl, 0x08 ) 



/* select control latch */ 
/* latch data */ 



outp ( pdata, } ; 
// outpl pctrl, 0x08 ); 
) 



/* clear data */ 

/* control signals inactive */ 



/* 

* Disable outputs of programmer address latches. 

* Note that PSEN* and PROG* are also disabled. 
*/ 

void disable_address { cptr ) 
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Microcontroller 



BYTE "cptr; 
{ 

outpl pdata, (*cptr S= -0x10) >; 



outp( pctrl, 0x08 ) 
outpl pctrl, 0x09 ) 
outp( pctrl, 0x08 ) 



outp ( pdata , ) ; 
// outpl pctrl, 0x08 ); 
) 



/* set up data */ 

/* select control latch */ 
/* latch data */ 



/* clear data */ 

/* control signals Inactive V 



* Enable output of programmer data latch. 
*/ 

void enable_data I cptr ) 
BYTE "cptr; 



outp( pdata, (*cptr 1= 0x20) 



/* set up data */ 



outp ( pctrl, 0x08 ) 

outpt pctrl, 0x09 ) 

outp( pctrl, 0x08 ) 

outp { pdata, ) ; 

// outpl pctrl, 0x08 ) ; 



/* select control latch */ 
/* latch data */ 



/* clear data */ 

/* control signals inactive */ 



* Disable output of programmer data latch. 



void disable_data I cptr ) 
BYTE *cptr; 



outpl pdata, (*cptr 6= -0x20) ) ; 

outp I pctrl, 0x08 ) ; 

outp ( pctrl, 0x09 ) ; 

outp I pctrl, 0x08 ) ; 



/* set up data */ 

/* select control latch */ 
/* latch data */ 



outp ( pdata, ) ; 
// outp ( pctrl, 0x08 ) ; 
> 



/* clear data */ 

/* control signals inactive */ 



* Enable 12 volts on Vpp. 

* Note that Vpp will not immediately reach the specified value. 
*/ 

void enable_Vpp( cptr ) 

BYTE *cptr; 

( 

outpl pdata, (*cptr 1= 0x08) ) ; /* set up data */ 



outpl pctrl, 0x08 ) 
outpl pctrl, 0x09 ) 
outpl pctrl, 0x08 ) 



/* select control latch */ 
/* latch data */ 



outp I pdata, ) ; 
// outpl pctrl, 0x08 ) ; 
) 



/* clear data */ 

/* control signals inactive */ 
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* Return Vpp to 5 volts. 

* Note that Vpp will not immediately reach the specified value. 
*/ 

void disable_Vpp ( cptr ) 

BYTE *cptr; 

( 

outp ( pdata, (*cptr S= -0x08) ) ; /* set up data */ 

outp ( pctrl, 0x08 ) ; /* select control latch */ 

outp ( pctrl, 0x09 ) ; /* latch data */ 

outp ( pctrl, 0x08 ) ; 

outp ( pdata, ) ; /* clear data */ 

// outp( pctrl, 0x08 ); /* control signals inactive */ 
) 



/* 

* Generate 10 mS low-going pulse on PROG*. 

* Note that the software timing loop is system-dependent. 
*/ 

void slow_pulse I cptr ) 

BYTE *cptr; 

{ 

int i; 



outpl pdata, (*cptr 1= 0x01) ); 



outp( pctrl, 0x08 ) 
outpl pctrl, 0x09 ) 
outpl pctrl, 0x08 ) 



for ( i=0; K15000; i++ ) 
/* delay */ 

outpl pdata, Ccptr S= -0x01) ); 



outpl pctrl, 0x08 ) 
outpl pctrl, 0x09 ) 
outpl pctrl, 0x08 ) 



/* set up data */ 

/* select control latch */ 
/* latch data */ 



/* approx 10 mS on 33 MHz 80386 */ 



/* set up data */ 



/* select control latch */ 
/* latch data */ 



outpl pdata, ) ; /* clear data */ 

// outpl pctrl, 0x08 ); /* control signals inactive */ 

> 



/* 

* Generate 100 uS low-going pulse on PROG*. 

* Note that the software timing loop is system-dependent . 
*/ 

void fast_pulse I cptr ) 

BYTE *cptr; 

( 

int i; 



outpl pdata, (*cptr 1= 0x01) ); 



outpl pctrl, 0x08 ) ; 
outp I pctrl, 0x09 ) ; 
outpl pctrl, 0x08 ) ; 



/* set up data */ 



/* select control latch */ 
/* latch data */ 
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for ( i=0; i<150; i++ ) 
/* delay */ 

outp( pdata, (*cptr s= -0x01) ) ; 

outp ( pctrl, 0x08 ) ; 
outp ( pctrl, 0x09 ) ; 
outp( pctrl, 0x08 ) ; 

outp ( pdata , ) ; 
// outpl pctrl, 0x08 |; 



/* approx 100 uS on 33 MHz 8038S */ 

/* set up data */ 

/* select control latch */ 

/* latch data */ 

/* clear data */ 

/* control signals inactive */ 



iffmEi 



